path=$1
cd $path
i=0
for patch in `ls *.patch`
do
  patch_list[$i]=$patch
  let i=$i+1
done
echo ${#patch_list[@]}
for i in $(seq 55 -1 0)
do
patch_name=`echo ${patch_list[$i]} |sed 's/^.....//g'`
echo "- $patch_name"
done
